home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 007 / turbo_tk.arc / BOXDEM.PAS next >
Pascal/Delphi Source File  |  1988-02-01  |  1KB  |  39 lines
  1. Program TestBoxes;
  2.  
  3. uses CRT, FastTTT;
  4.  
  5. var
  6.   I,X1,Y1,X2,Y2 : integer;
  7.   Ch : char;
  8. begin
  9.     TextBackground(Lightgray);
  10.     Clrscr;
  11.     Box(1,1,80,25,white,lightgray,2);
  12.     For I := 1 to 100 do
  13.     begin
  14.         X1 := random(77);
  15.         X2 := X1 + random(80 - X1);
  16.         Y1 := random(22);
  17.         Y2 := Y1 + random(25 - Y1);
  18.         FBox(X1,Y1,X2,Y2,random(15),random(7),random(3)+1);
  19.     end;
  20.     ClearText(1,1,80,2,white,black);
  21.     WriteCenter(2,lightgray,black,'You just saw 100 (count ''em) boxes being displayed');
  22.     WriteCenter(1,white,black,'Press any key to see the Exploding box effect');
  23.     Ch := readkey;
  24.     ClearText(1,1,80,1,white,black);
  25.     GrowFbox(1,2,80,25,black,lightgray,1);
  26.     Delay(500);
  27.     GrowFbox(5,5,20,20,yellow,red,2);
  28.     Delay(500);
  29.     GrowFbox(10,18,80,25,white,blue,3);
  30.     Delay(500);
  31.     GrowFbox(20,4,70,16,lightgray,black,4);
  32.     Delay(500);
  33.     GrowFbox(50,5,60,23,black,cyan,1);
  34.     ClearText(1,1,80,1,white,black);
  35.     WriteCenter(1,white,black,'Too much ... press any key to continue');
  36.     WriteAT(1,24,white,black,'Run DemoTTT.exe for the main demo program');
  37.     WriteAT(1,25,white,black,'Technojocks Turbo Toolkit v4.0');
  38.     Ch := Readkey;
  39. end.